<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
Response.expires = 0
Response.Buffer = False
Response.CacheControl="no-cache" 
Response.AddHeader "Pragma","no-cache" 

sAcao = Request("ACAO") 
MREDE=Request("REDE") 
'RESPONSE.WRITE MREDE
'RESPONSE.END
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3

VISITA = Request("VISITA")
HORA = Request("HORA")
ESCOLA = Request("ESCOLA")

If sACAO <> "E" Then
  LATITUDE=request("LATITUDE")
  LONGITUDE=request("LONGITUDE")
  if LATITUDE="" THEN
     LATITUDE=0
     LONGITUDE=0
  END IF
  IF LATITUDE = 0 AND LONGITUDE = 0 THEN
    Response.Write("Favor habilitar a localização no seu aparelho.<br>Clique <a href='javascript:history.go(-1)'>aqui</a> para voltar")
	Response.End()
  END IF
'  IF LATITUDE<>0 THEN
'   RESPONSE.WRITE   LATITUDE & "<BR>" &  LONGITUDE
'   RESPONSE.END
'  END IF


  DATA_REAL = Request("DATA_REAL")
  HORA_REAL = Request("HORA_REAL")
  AVISITA = Request("AVISITA")
  AHORA = Request("AHORA")
  CONTATO1 =TRIM(REQUEST("CONTATO1"))
  CONTATO2 = TRIM(REQUEST("CONTATO2"))
  IF CONTATO2 <> "Novo" THEN
  CONTATO = CONTATO2 
  ELSE
  CONTATO = CONTATO1
  END IF
  'RESPONSE.WRITE "CONTATO2:" & CONTATO2 & "CONTATO1:" & CONTATO1
  'RESPONSE.End()
  FUNCAO = Request("FUNCAO")
  ATIVIDADE = TRIM(Request("ATIVIDADE"))
  OBS = trim(Request("OBS_PADRAO")) & " " & trim(REPLACE(replace(Request("OBS"),"'","#"),CHR(34),"#"))

  'if len(OBS)> 250 THEN
  '  OBS=MID(OBS,1,250)
  'END IF
  IF LEN(HORA)> 2 THEN
     IF MID(HORA,2,1)=":" THEN
       HORA="0" & TRIM(HORA)
     END IF
  END IF
  MDATA_REAL=DireitizaString(MONTH(DATA_REAL),2,"0") &"/" & DireitizaString(DAY(DATA_REAL),2,"0") &"/" & YEAR(DATA_REAL)
  MVISITA=DireitizaString(MONTH(VISITA),2,"0") &"/" & DireitizaString(DAY(VISITA),2,"0") &"/" & YEAR(VISITA)
  MAVISITA=DireitizaString(MONTH(AVISITA),2,"0") &"/" & DireitizaString(DAY(AVISITA),2,"0") &"/" & YEAR(AVISITA)
  
  If  sACAO = "I" then
    sSql = "Insert Into ESCOLAS_VISITA(COD_ESCOLA,VISITA,DIVULGADOR,DATA_REAL,HORA,HORA_REAL,OBS,CONTATO"&_
           ",FUNCAO,ATIVIDADE,LATITUDE,LONGITUDE) " &_
           " VALUES("& ESCOLA & ",'"& MVISITA &"','"& Session("Usuario") &"','"& MDATA_REAL &"','"& HORA &"','" & HORA_REAL & "'" &_
           ",'"& OBS &"','"& CONTATO &"','"& FUNCAO &"','"& ATIVIDADE &"',"&LATITUDE&","&LONGITUDE&") "
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)
  ELSE
    sSql = "Update ESCOLAS_VISITA Set  VISITA = '"& MVISITA &"'" &_
           ", DATA_REAL = '"& MDATA_REAL &"'" & _
           ", HORA = '"& HORA &"'" &_
           ", HORA_REAL= '"& HORA_REAL &"'" &_
           ",OBS='"& OBS &"'" &_
           ",CONTATO='"& CONTATO &"'" &_
           ",FUNCAO='"& FUNCAO &"'" &_
           ",ATIVIDADE='"& ATIVIDADE &"'" &_
           " Where COD_ESCOLA = " & ESCOLA &" AND VISITA='" & MAVISITA & "' AND HORA='" & AHORA &"'"
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)	
  End If
Else
     sSql="Delete From ESCOLAS_VISITA Where COD_ESCOLA = " & ESCOLA &" AND VISITA='" & VISITA & "' AND HORA='" & HORA &"'"
     Conn.Execute(sSql)
End If	
Conn.Close : Set Conn = Nothing
IF ATIVIDADE="Divulg.Did" OR ATIVIDADE="Divulg.PNLD" THEN
  Response.Redirect "escola_oferta.asp?REDE=" & MREDE & "&CODESCOLA=" & ESCOLA
ELSEIF ATIVIDADE="Divulg.Liter" THEN
  Response.Redirect "escola_oferta_individual.asp?CODESCOLA=" & ESCOLA
END IF

Response.Redirect "palm_escola_visitas.asp?ESCOLA=" & ESCOLA
%>